home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / armagedn / casio.asc
Encoding:
Text File  |  1994-03-01  |  3.2 KB  |  133 lines
  1.   PRG POUR SIMPLIFIER LES MESURES D'ANGLE
  2. (UTILE EN 1ER AVEC LES ANGLES ORIENTES)
  3. APRES AVOIR TAPER LE PRG IL EST VIVEMENT
  4. CONSEILLE DE FAIRE UNE BATTERIE DE TEST
  5. SI VS AVEZ UN PROBLEME LAISSER MOI UN 
  6. MESSAGE EN BAL
  7.  
  8. 1 PRINT"SIMPLIF PAR ARMAGEDON"
  9. 10 PRINT"FORME API/B"
  10. 11 INPUT "A:";A
  11. 12 INPUT "B:";B
  12. 13 C=2*B:D=A/C:E=INTD:F=D-E
  13. 15 IF F=0.5 THEN GOTO45
  14. 16 IF F=0 THEN GOTO40
  15. 17 IF F>0.5 THEN GOTO 30
  16. 18 IF 0<F<0.5 THEN GOTO 35
  17. 30 REM SALUT
  18. 31 G=E+1:H=2*G*B:I=A-H:GOTO100
  19. 35 REM DII
  20. 36 G=E:H=2*G*B:I=A-H:GOTO 100
  21. 40 REM BON
  22. 41 CLS:PRINT"ANGLE=0":CLS:GOTO1
  23. 45 REM J'OM
  24. 46 CLS:PRINT"ANGLE PLAT":CLS:GOTO1
  25. 100 REM DD2
  26. 101 PRINT "(";A;"PI)/";B;" = (";I;"PI)/";B
  27. 102 PRINT "COEF MULTIPLICATEUR : ";D
  28. 103 GOTO 1
  29.  
  30.  
  31. LE NOMBRE D'OR .IL FAUT TROUVER LE NOMBRE
  32. D'OR EN UN MINIMUM DE COUPS(VOIR JEU DE WTEL)
  33.  
  34. 1Z=1:PRINT "PAR ARMAGEDON":CLS:INPUT "1:EASY 2:MEDIUM 3:HAR 
  35. D";R
  36. 2 IFR=1 THEN GOTO 6
  37. 3 IFR=2 THEN GOTO 7
  38. 4 IFR=3 THEN GOTO 8
  39. 5 GOTO 1
  40. 6 X=1000:PRINT "EASY 0-1000":GOTO 10
  41. 7 X=5000:PRINT "MEDIUM 0-5000":GOTO 10
  42. 8 X=1000:PRINT " HARD 0-10000":GOTO 10
  43. 10 PRINT "NOMBRE D'OR"
  44. 11 N=RAN#*X
  45. 12 O=INTN
  46. 13 INPUT "NOMBRE:";Q
  47. 14 IF Q<O THEN GOTO 20
  48. 15 IF Q>O THEN GOTO 21
  49. 16 IF Q=O TEN GOTO 30
  50. 20 PRINT "PLUS GRAND":CLS:Z=Z+1:GOTO 13
  51. 21 PRINT "PLUS PETIT":CLS:Z=Z+1:GOTO 13
  52. 30 PRINT "GAGNE,LE NOMBRE D'OR EST:";O;" TROUVER EN ";Z;" C 
  53. OUPS":CLS
  54. 31 PRINT "VOUS L'AVEZ TROUVER EN";Z;"COUPS"
  55. 32 IF Z<8 THEN GOTO 40
  56. 33 IF Z>12 THEN GOTO 41
  57. 34 IF 8<Z<12 THEN GOTO 50
  58. 40 PRINT "C'EST TRES BON":CLS:GOTO 1
  59. 41 PRINT "ET C'EST NUL":CLS:GOTO 1
  60. 50 PRINT" C'EST MOYEN":CLS:GOTO 1
  61.  
  62.  
  63. DIVISION INFINIE
  64.  
  65. 10 PRINT "DIVISION INFINIE PAR ARMAGEDON"
  66. 11 INPUT "A:";A
  67. 12 INPUT "B:";B
  68. 15 C=INT(A/B)
  69. 16 PRINT C;",";
  70. 17 D=(A-(C*B))*10
  71. 20 E=INT(D/B):PRINT E;
  72. 21 D=(D-(E*B))*10:GOTO 20
  73.  
  74. SECOND DEGRE+CONVER DEG->RAD
  75. OUAI JE SAIS SE PROGRAMME EST UN VRAI
  76. FOUTOIRE,MAI C'EST UN VALEUREUX PRG QUI
  77. NE DEMANDE RIEN A PERSONNE.
  78. BON VOUS ALLEZ ME DIRE QU'IL Y EST DEJA
  79. EN LIB MAIS CELUI LA EST MIEUX:
  80. -DONNE FORME CANNONIQUE
  81. -DONNE RESULTA SS FORME DE FRACTION
  82. -SIGNE DE A
  83.  
  84. 1 PRINT"PAR ARMAGEDON"
  85. 129 INPUT"1:DEG->RAD 2: 2EME DEGRE";F
  86. 130IF F=1 THEN GOTO 134
  87. 131 IF F=2 THEN GOTO 200
  88. 132 GOTO 129
  89. 134 PRINT"DEG--->RAD"
  90. 135 CLS
  91. 136 GOTO 140
  92. 137 GOTO 1
  93. 138 GOTO 137
  94. 139 GOTO 1
  95. 140 INPUT "DEG:";D
  96. 141 GOTO 145
  97. 142 GOTO 1
  98. 143 GOTO 137
  99. 144 GOTO 138
  100. 145 R=((PI)/180)*D
  101. 150 PRINT "RAD:";R
  102. 151 GOTO 155
  103. 152 GOTO 153
  104. 153 GOTO 154
  105. 154 GOTO 1
  106. 155 CLS:GOTO 134
  107. 200 CLS:PRINT"2 DEGRE"
  108. 210 PRINT"FORME AX^2+BX+C"
  109. 215 INPUT"A:";A
  110. 220 INPUT"B:";B
  111. 225 INPUT"C:";C
  112. 230 D=(B^2)-(4*A*C)
  113. 235 E=2*A
  114. 240 F=(4*(A^2))
  115. 245 CLS:PRINR"FORME CANNONIQUE:"
  116. 250 PRINT A;"[(X+(";B;"/";E;")^2-";D;"/";F
  117. 255 IF D<0 THEN GOTO 280
  118. 260 IF D=0 THEN GOTO 300
  119. 270 IF D>0 THEN GOTO 400
  120. 280 CLS:PRINT"DELTA<0 PAS DE SOLUTION,SIGNE DE F(X):
  121. SIGNE DE A":GOTO 200
  122. 300 CLS:PRINT "DELTA=0 UNE SOLUTION"
  123. 310 PRINT"X=-";B;"/";E
  124. 320 PRINT " DU SIGNE DE A POUR TOUT REEL"
  125. 330 GOTO 200
  126. 400 CLS:PRINT"DELTA>0 2 SOLUTIONS"
  127. 405 CLS:PRINT"X'=(-";B;"-SQR";D;")/(";E;") ET   
  128. X''=(-";B;"+SQR";D;")/(";E;")"
  129. 415 CLS:PRINT"DU SIGNE DE A A L'EXTERIEUR DES RACINES,
  130. DE -A ENTRE LES RACINES"
  131. 420 GOTO 200
  132. 5000GOTO1
  133.